(wdired-xcase-word): Skip non-word read-only characters.

diff --git a/lisp/wdired.el b/lisp/wdired.el
index 5a925e5d0311513b8da17bc193e1116f8034d0bb..2c43b6f15521fd210967eae4839a8b889976f0b2 100644 (file)
--- a/lisp/wdired.el
+++ b/lisp/wdired.el
@@ -576,8 +576,11 @@ If OLD, return the old target.  If MOVE, move point before it."
             (funcall command 1)
             (setq arg (1- arg)))
         (error
-         (if (not (forward-word 1))
-             (setq arg 0)))))))
+         (if (forward-word)
+            ;; Skip any non-word characters to avoid triggering a read-only
+            ;; error which would cause skipping the next word characters too.
+            (skip-syntax-forward "^w")
+          (setq arg 0)))))))
 
 (defun wdired-downcase-word (arg)
   "WDired version of `downcase-word'.